home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_A.d64
/
uncruncher demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
81 lines
30 rem uncrunch demo
40 poke 53280,11:poke 53281,0
50 if a=0 then a=1:load"uncruncher",8,1:rem uncrunch ml
52 clr:rem fixes load 8,1
55 gosub 700
57 po=1033+(4*40)
58 read n:if n>8 then n=8
60 for x=1 to n:read f$(x),f1$(x):next
65 x=1:t=1
70 print"[154][147][158]"tab(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
80 printtab(5)" [199]raphic [198]ile [213]ncruncher [196]emo "
90 print" [208]lease choose picture: [159]"
100 print:forl=1 to n
110 print""f$(l);
150 print:print:next
160 print""tab(12)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
165 printtab(12)" [198]8 [198]or [213]p[212]ime "
167 poke po+(x*80),62:poke po+(x*80)+21,60:gosub 500
170 get c$:gosub 400
175 if c$="" then 170
178 poke 198,0
180 if c$="[140]" then sys (8*4096)
184 if c$="[145]" then x=x-1
186 if c$="" then x=x+1
188 if c$=chr$(13) then 200
190 if x=0 then x=n
192 if x=n+1 then x=1
193 if x=t then 170
197 gosub 500
198 t=x
199 goto 170
200 sys 49152+12: rem blank screen
210 sys 49152+6 : rem set multi-color
220 open 15,8,15
230 open 2,8,2,"0:"+f1$(x)+",p,r"
235 gosub 600
240 sys 49152
250 close 2
252 close 15
255 sys 49152+15:rem enable screen
257 poke 198,0
260 get a$:a=peek(56320) and 16
265 if a$="" and a<>0 then 260
270 sys 49152+9 : rem reset to normal text
275 poke 53280,11: poke 53281,0
280 goto 70
400 p=not peek(56320) and 31
410 if p and 1 then c$="[145]"
420 if p and 2 then c$=""
430 if p and 16 then c$=chr$(13)
440 return
500 rem print reverse bar
510 p=po+(t*80)+1
520 h=int(p/256):l=p-(h*256)
530 poke 251,l:poke 252,h
540 p=po+(x*80)+1
550 h=int(p/256):l=p-(h*256)
560 poke 253,l:poke 254,h
562 poke po+(t*80),32:poke po+(t*80)+21,32
564 poke po+(x*80),62:poke po+(x*80)+21,60
570 sys (4*4096)
580 return
600 input#15,er$,em$,et$,es$
610 if er$<"20" then return
615 sys 49161:sys 49167
620 close 2:close 15
630 print"[147] [196]isk error:"
640 print""er$", "em$","et$","es$
650 get a$:if a$="" then 650
660 goto 70
700 for i=0 to 22
710 read d:poke 16384+i,d:next
720 return
750 data 160,18,177,251,41,127,145,251
760 data 136,208,247,160,18,177,253,9
770 data 128,145,253,136,208,247,96
800 data 3
820 data "[205]urder [195]ruise",cruise
830 data "[203]arate",karate
840 data "[195]ompact [196]isc",disc